home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / vlabimport.clssa < prev    next >
Text File  |  1995-01-20  |  746b  |  38 lines
  1. /***********************************************************************
  2.  GADGET: "'VLab Import 1 Frame'" "4" AUTO TYP: "?"
  3.  
  4.  $DAT >>VLabImport.clssa<<    20.02.1993 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9.  
  10.   FailAt 99
  11.   AltFail=RESULT
  12.  
  13.   errvari=0
  14.  
  15.   Address clariSSA
  16.   SetScreenGrabber REQ TRIGGER 5
  17.  
  18.   Address VLAB
  19.  
  20.   ACTIVATEWINDOW
  21.  
  22.   SCAN
  23.   CONVERT
  24.   DISPLAY
  25.   IF RC = 0 THEN DO
  26.     Address clariSSA
  27.     SetScreenGrabber RECORD
  28.     SetBasicScreen FRONT
  29.   END
  30.   ELSE errvari=1;
  31.  
  32.   Address clariSSA
  33.  
  34.   IF errvari~=0 THEN Message "'<Import VLab>' 'Bearbeitungsfehler'"
  35.  
  36.   FailAt AltFail
  37. exit
  38.